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The complete FORTRAN programming operation can be described by the following typical steps: 


1. Organize the problem, determining equations used, etc. 


2. Determine which items should be read by the computer at execution time. 


3. Write a first draft of the program statements on scratch paper (this permits easy corrections). 


eo oa Fo 


Write Input statements. 

Write the statements to solve the particular problem. 

Determine the quantities to print and write the appropriate output statements. 

Add necessary specification statements and comments (C in column 1). 

Be sure that all subprograms are headed correctly and all programs have END statements. — 


4. Copy final draft on coding sheets. 


a 


2 N 


Punch the program on cards (many computing centers offer this service if coding forms are used.) 
Using the FORTRAN compiler program, translate your program to a computer-coded one. 
Execute your computer-coded program, with any input data you are reading and obtain answers. 


Examine the results and verify them, debugging if necessary (correct the FORTRAN statements and 


repeat at step No.6). 


415 
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(some statement or sequence, of statements) 


GO TO 49 


(some statement or sequence of statements) 
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DO 10 T=1,,2060¢ 

BLOCK (TI 10,20,,10 
CONTINUE 
LOC i= @ 


GO. TO 21 


LOC, i= 1 





NOTE: Brackets will be used 
in future sample program 
segments to outline DO-loops, 
as done in this frame, 


ontinue in the program) ' ; 


for clarification purposes. 
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i ade a, oP 


Subprogram 
Characteristics 


How named 


How many values returned 
to main program 


How called 
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Library or 
Built-In Functions 


Pre-selected names 


Predefined by name 
(implicit) 


One value returned 


By name 


Pre-written and stored in 
library 


Number and type predefined- 
depends upon routine 


tol et. le 


SUBPROGRAMS 


Arithmetic Statement 
Functions 


1-5 alphanumeric char- 
acters, first alph. (Same 
rules as variables) 


Implicit in name or by 
Type statement 


One value returned 


Single arithmetic state- 
ment defined within program 
in which it appears. Def. 
precedes Ist executable 
program statement 


Non-subscripted variables 


4.7 


Ce ES a A) 


FUNCTION 
Subprograms 


Same rules as variables 


implicit in name or by 
Type statement. Also 
INTEGER or REAL can 
precede FUNCTION name 


One value returned 


Independently written 
program contains many 
statements, has RETURN 
and END 


Has at least one. May be 
nonsubscripted variables, 
arrays or dummy names 
of SUBROUTINE or other 
FUNCTION programs 


SUBROUTINE 
Subprograms 


Same rules as variables 


Undefined- mode of results 
depends upon argument 
names 


More than one value can 
be returned 


By CALL statement. CALL 
supplies data for dummy 
variables in SUBROUTINE- 
may transmit constants, 
variables or expressions 


Independently written 
program contains many 
statements, has RETURN | 
and END 


May have none. Or can be 
nonsubscripted variables, 
arrays or dummy names 
of FUNCTION subprograms 
or other SUBROUTINES 
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FORMAT (i1@F 12 .4,) e FORTRAN CODINY — 
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AJ i= ACJ +1 
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Z| CONTINUE 
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DIMENSION, A(1¢ B(.190@ 
DO 10 I =1,,N 
RETURN 
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Fac PhM Galehis te caskc cet-aca cesarcohacenhcacodoc neharactecachacccs casudia? 
eae E Decne eee eee dee ore cs Sate eine reeatted eee Pere eee: 














Cont. 











EAD (2,4): A(T) 


* A standard card form, IBM electro 888157, is available for punching source statements from this form. 


3.3 


{___S L__J to} a= 724 


oe 


bode gitih ee iG, ee A ee i ee A a ee LS 


FORTRAN CODING FORM 


Punching Instructions Page of 


i OO 
A SE (EF 


C FOR COMMENT 
= 
Pad STATEMENT 


7 35 40 





Teiest ese SUM(A:, N) 
DIMENSION, A(160) 
SUM=A(1) 

DO 19 1I=2,,N ; 
SUM=SUM+A\(.1.) 

RETURN 

END 


C FOR COMMENT 


ny 5 


NUMBER 


lees pertinent program stateme Se a cea tare hat gana 


Y=SUM(BLOCK,KOUNT) 
(continuation of. program) 





(10/65) | 44 


bE) (Ga ee Sa) a “ey AE ee Ce) ee ed. ee ee eS ee ee ee eS 


Form X28-7327-4 
Printed in U.S.A. 


2 FORTRAN CODING FORM 


Punching Instructions Page of 
a OSS 77 PS 
Pe he 
Oe ee | Oe eS = 
C FOR COMMENT 
ere 
1 


NUMBER 








(10/65) 3.4 


Ried: Sehr a BP de, ew: She A A A ihe eS eo ee fu Sy Oe. eS 


(10/65) 











FORTRAN CODING FORM 


Punching Instructions 


i OO Lc 
eg pg | 
i 


= C FOR COMMENT 

STATEMENT | © 

NUMBER |°9 ; FORTRAN STATEMENT 

1 516 |7 0 25 30 35 40 45 50 55 60 65 70 «72 


pe 
|| tuner ton SUM CA,.N 

DIMENS TON, A( 140) 

SUM =A (1) 

DO 10 1=2,,.N 

10) ISUM=SUM+A, (1) 

RETURN 






e& 


























* A standard card form, IBM electro 888157, is available for punching source statements from this form. 


4.3 


fh. He. Se. ES. tee eh “ee ee, Se “Sey Se “Bee ee ee ee 
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DOD OCODDOCOOODOOOONDODODDDNDDNNDDNOOOONDDODODDNNO NNN DDO NNN DDD NDDVODDNDNDN0D 
7 899 10 38 12 13 14 85 16 17 18 19 20 21 22 23 24 25 26 27 28 29.30 31 32 33 34 35 36 37 38 39 40 41.42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59.60 61 62 63 64 65 66 G7 68 69 70 11 72 73 74:75 76 77 78 79 80 
TPO Ree RRR EEE REECE E ECE tee eEe ee leen heer re rnerreeenennnnan 
22222222 22222222222222222222222222222222222222222222222222222222222222222222222 
3333033 31333333333333333333333333333333333333333333333333333333333333333333333333 
AAAAABSASAAGSASGA GAAS AASAAGAASAAGAASAASA AGA ASA S4A4A4G444444444444644444444444444 


JD SFT F FTF T FF SFT FFF TTDI S UNNI IU IIIS VIN II NI IIIIIIIVIIINANND 


GEGHECECEECECEEEE EE GE CECE G EE CECE CEG EG EG GE GE EEGEGEESEG6GEE EE GEGE EGE EEGEGE6GE6GE6EEEEEEE 


TUTTTTV TTT TTT TTT TTT TT ATT dddddddddddddddddddd 
SEEEFKRSIBEEKKEKKEKEEKEKHKEGHKHKKEKSEHEKKKKEKESKEKEKEKKEKKKKKEKEKKEKEKHKESKKBKKEKEREKKEEIGB 





3.9 


en. eee ye A ee et ee ee: ee TS. ed) aie a) 


Ped eed 


Co Re 


ADDITIONAL LIBRARY FUNCTIONS AVAILABLE WITH I1I30 FORTRAN SYSTEMS 





Name Mode of Function Mode of Arguments 


(Absolute value function) 


ABS Real Real 
IABS Integer Integer 


(Mode conversion and truncation functions) 


FLOAT | Real Integer 
IFIX Integer Real 


(Diminishing Function) 


SIGN | Real | Real 
ISIGN Integer Integer 


(10/65) 4 


No. of Arguments 


> oe 


Example 


ABS(X * ¥ 2-1.0) 
IABS(I-L) 


FLOAT (INDEX) 
IF IX(ALPHA) 


SIGN(A,B) 
ISIGN(L,M) 


ihe 


J 


Les 


Goa: ey ey: ee a: eer “es Fe a ei ee Sa a, 


DODDDOODDNDKHOHHNDHDDHONDKNODNDDNNOKDDAHNDHHONDONHNAHAAOONODDNKONDNDHDNDHHD000000DD00ND 


9 10 19 12 13 14 15 16 17 18 19 20 21 22 23 26 25 26 27 28 29 30 31 32 33 34 35 36 37 38.39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 5960 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 7879 80 


PETTDETATET TTDI TD TTT A TTT TTT ATA TTT Tadd 
222222 2H 2222222222222 2222222222222222222222222222222222222222222222222222222222 


3330033 33333333333333333333333333333333333333333333333333333333333333333333333333 


SAAAABASUAGSAAA AAA AAA AAA AAA ASAAASAAAAAA ASA AAS AA AAA ASSAD S44 AA 44444444 444445444454 
A) eee EEE EE EEE EEE EEEEELEEEEEEEELEEELEELEEEEELEEEEELEEELEELE 
BEMSCEGCSEECEECGEEE6E GEESE CEE EGE EEE EGE CEE EGECSESEG EEG EGGCEG ESSE CEB GEG CEE EGGEGGEEE 
TUDTTTVYTTT 777770777070 770770 7070777700000 0707007000700: 
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feo coke “yi SS L 


SIN (A) 


COS(A) 


TANH(A) 


ATAN(A) 


SQRT(A) 


EXP(A) 


ALOG(A) 


(10/65) 


a or re Oe ons cee 


Ged Hed! Sees se Ce er “ieee A ei I Oe ee eed 


LIBRARY FUNCTIONS AVAILABLE WITH II30 FORTRAN SYSTEMS 


Mode of 
Purpose Comments . 
Function 


Trigonometric sine 


Trigonometric cosine 


Hyperbolic tangent 


Arc- tangent 


Square root 


Exponential 


Natural logarithm 


(sinA) 
(cosA) 
(tanhA) 


(tan-! A) 


(7 A) 


A) 


arg. in radians 


arg. in radians 


arg. in radians 


argument 20 


argument >O 





41 


Mode of 


Examples 
Argument 


Y =SIN(AtB) 
X = A+COS(Z) 
C= TANH(X ** 2) 


RIN = OMEGA- 
ATAN (BETA) 


HYPOT=SQRT 
(A**2+B** 2) 


GAMMA= EXP(Y) 


Q= SIN (F)+ 
ALOG (5.0) 


Cf). Coy. te Gee Ee Cee Te Gee ee Ee ee ee ee eee et Eee tee ee tee 


+2100000. - 2100000. 


W222 212 22 22222 22222222222222222222222222222222222222222222222222222222222222 


3033 .3/3 3833 3/3333333333333333333333333333333333333339393333333333333333333333333333 


AAGAMAAGASAIAGASAAAAGAAAAAASAAAA AAA SASASAAAAAAASGASASASASAAAAAAGAAGAA4444444544445 
S5SMSSS SSMS SSSSSSSS SSS SSS SSS SSS SS SS SSS SS SSS SSS SS SSS SSS S SS SSSSSS SSS SSSSSSSSSSSSS 
GEGGMSSSCGMISGCCCCGCGGCECGCGESE6CEGEESEGEGEESES EGG CEEGGCSCEBEGGESCEGEECSEGGGCEGGEGE 
77779077779/07777777777777777777909777777790977979990779799777797797777799797997972 
qo) GCE LLL EEL ELE EEL ELELLEEELELELELELLELELELEELLELEEEEELELELE LLL 





(10/65) 3./ 


Eid Chee Wee, Syd’ th a Sis oS 


WRITE STATEMENT- 


FORMAT STATEMENT: 


PRINTED LINE: 


(10/65) 


' 
2 
es 
L 





R!I TE( 3.,.1,)NUMBER, ALPHA, RHO, EXPL 


MOON SHOT 12345 


5.14 


-.3456789E O03 EQUALS 





-34.12STAR 
blank line 


blank line 
blank line 


tise 


far ee We ies ee ie ee SS oe We AS ee ee eas, ee tia Se “eed ed 


1234000. 


2202222212 22222)28 222222 21222222 2/229222 2128222222122 2222212 222 21228 2222220222222222 
30303333133 33313 363033303333 33/333 3 33 8 33 3/3333 33 3 B39 33338 3393939333 
ASAAMA4 4444404 414444444 414444044 416444 44 44 4 4 ie 4 444s 444444 aaa 


SSSSSMSSSSSSSMMSSSSS BSS SSS SSSSSSISSSSSSSSSSSSBSSISSSSS5 BSS 555 §55555595555555555555 
BEGCSSEMISCGGESSIC SCE GEMS CS CCC CBS BIC CCC CMMSSCCCCMCIGCGGCESLG GCG GIEEGGCGCCMGE565666666 
TUVTTTITTTTTIT NTT TTT ITT TTT TTT TTT TITTY TTTTTTTTTTTTTTT7T0 7977 
A 0) Sc Ge GG i go) Gd) Gd) eG) Ge) Gs gg sn) Geen 





(10/65) : 3.8 


eee: Miso Ne le, SA ae i. se, eS Ae? as “es Ss, “HS 
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Printed in Ur5. Ax 
IBM FORTRAN CODING FORM apis 


© 
SN I 
a |) 
OU ee en, ie a if Spee = 2 Sh es g0 
= FOR COMMENT 
STATEMENT | © 
NUMBER |S FORTRAN STATEMENT 
617 10 1 20 25 30 35 - 40 45 50 55 60 65 70 72 



























—=—————SS>>S=={—"@={{"**{="={_@[==aaqnNnanananananananannaan=-—ye—e=—_rmr=r_—"”_—=—=~=za=“—~—¥V—=—_—aS—S—s—sSs—Sas—a“axaaXX—X_——X—X—X—X—X—X—X—XX—X—X—X—X—X—X—X—_——————X—X—Xyasx_ooav————X—————E 





| WRITE( 3.1 ACI 1=1,,100¢ 


FORMAT ('. A ARRAY' //,(10F1,2 .4 







* A standard card form, IBM electro 888157, is available for punching source statements from this form. 


5.13 


C5). fe Mee? tee ee ea “heey, ee He eee Ee Se ee ae Ne eee Fb ee 


2222222222(222222222222222222222222Wf2222222222222222222Mf2 22222 242 22222222222222222 
33333/3333 3/3333 393333333333 3M 33333 3[3333333333333 33333 319333333/333333333333333333 
4444414444444444444444444444444N44441444444444444440 4444044044 41044444444444444444 
SSSSSISSOMSHSSSSSSSSSSSSSSSSSSSSSM SSS S555555555555555M9555 55559 5555555555555555558 


GEG GEC GE SS EEG OEGGCEGECCEGECESECESGECESEEEGECE6ECEG EGE G CEG CMG EGCCEGCCESGGGE6E66666 
777700777790 77700077777977997999997999900707999999779799970799007707:« 70 00707:2702'7'~T TT 
ee ee ee) eee) Pe eee) ee 


9999999 919999999999999999999 9199999991999999999999999995 


28 29 30 21 32 33 34 35936 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 S56 57 58 59 60 61 62963 64 65 66 67 68 69 70 7t 72 73:74 7576 77 7879 Bn 
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E CONVERSION (using 3E20.7) 
Printed (b=Blank) 


VALUES 
IN STORAGE 


ALPHA(1) | 968.2319 , 
| ! 
! 


| | ! 
ALPHA (2) ~234.11 bbbbbbbb. 9682519EbOSbbb bbbb-. 25411 00EbOSbbbbb bbb. 4000000E-10 
| ! 
ALPHA(1) ALPHA(2) ALPHA(3) 
ALPHA(3) - 00000000004 . 
ALPHA (4) | -.002 ; 
! 
ALPHA (5) 1234567. bb bbbbb-. 2000000E-O2bbbbbbbb. 1234567EbO7bbbbbbb-. 845661 2Eb05 
ALPHA(4) ALPHA(S5) ALPHA(6) 


ALPHA(6) | -84566.12 





(10/65) 5.12 


on oc Oo Co Cd CD COD UCU 6g: 6 Cd OES ES LO kee 


F CONVERSION (using 4F10.4) 


VALUES Printed (b= Blank) 
IN STORAGE 


968 .2319 


45.62 
bb968.2319bbb45 .6200b-234.11 00bbb42 .0000 


X(t) x2) | X(3) ! x(4) 


-234.11 


42. 
1.45678 


8 r] 
HERO bbbb-. 2000 


1 
x7) | x@) | 


-123.9601 _ 
bbbb1.4567b-123.9601 


x5) | XI(6) 


1234567. 


1 
1 
{ 
1 
b 
-.2 

-84566. 12 


HHH HIE REMAINING NUMBERS PRINTED 


X(9) | X(10) X(11) X(12) 
X(13) X(14) X(15) X(16) 
X(17) X(18) X(19) X(20) 
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VALUE 
IN STORAGE 


123.46 


E CODE 


E12.5 


$11 


PRINTED 


bb. 12346Eb03 


R23-0105-0 


International Business Machines Corporation 


Data Processing Division 


112 East Post Road, White Plains, New York 





